<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.8</name>
<id>-1</id>
<cardCount>9</cardCount>
<cardID>3051</cardID>
<listID>5738</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on openStackglobal levelHolder, holdNum, dialNumberset the userLevel to 5put long name of this stack into pathnamedelete first word of pathnameset lockscreen to trueshow bkgnd btn "Work Station©"get script of bkgnd btn "Work Station©"delete word 2 of line 2 of itput ""&&pathname after word 1 of line 2 of itset the script of bkgnd button "Work Station©" to ithide bkgnd btn "Work Station©"set lockscreen to falsehide menuBarshow bkgnd btn id 39hide bkgnd btn id 40end openStack-----------------------------------------------------------------------on openCardput the date into field "date/time"end openCard-----------------------------------------------------------------------on killButtonchoose Button toolclick at the clickLocdoMenu "Cut Button"choose Browse toolend killButton-----------------------------------------------------------------------on WSHelppush cardvisual dissolve to graygo to card id 7152hide menuBarset the scroll of field "info text" to 0set the scroll of card field id 2 to 0end WSHelp-----------------------------------------------------------------------function clickLinereturn (trunc(((scroll of the target) ¬+ (item two of the clickloc) ¬- (item two of the rect of the target)) ¬div the textHeight of the target) + one)end ClickLine-----------------------------------------------------------------------on newWSCardgo to card "Main Card"ask "Enter name of new Work Station card…" with ¬" (maximum of 22 characters)"if it is " (maximum of 22 characters)" or it is empty thenexit newWSCardelseput it into cardNamefind cardName in field "card name"if the result is empty thenbeepanswer "Card title"&"e& cardName "e&" is already in use!"exit newWSCardelseif the length of cardName > 22 thenbeepanswer "Only 22 characters are allowed! Try again..." with "OK"exit newWSCardend ifend ifpush cardset cursor to 4set lockScreen to truedoMenu "New Card"put cardName into bkgnd field id 23set the name of this card to cardNamepop cardget the number of items of card field id 8add 1 to itput cardName &"," into item it of card field id 8set lockScreen to falsevisual dissolve to blackgo to card cardNameplay harpsichord "g c"end ifend newWSCard-----------------------------------------------------------------------on deleteWSCardask "Enter name of card to be deleted…" with ¬" Enter name exactly as in card title field!"if it is " Enter name exactly as in card title field!" or it is empty thenexit deleteWSCardelseput it into cardNamefind cardName in bkgnd field "card name"if the result is not empty thenbeepanswer "Card"&"e& cardName "e&" not found in stack!"exit deleteWSCardelsevisual dissolve to blackgo to card cardNameplay Boing "gq"answer "Delete this card…"&"e& cardName "e& "?" with "OK" or "Cancel"if it is "OK" thenset lockScreen to trueset cursor to 4doMenu "Delete Card"doMenu "Compact Stack"go to card id 3051put cardName&"," into textput offset (text,card field id 8) into startput the length of text into countput start + count into totalrepeat until total = startdelete char start of card field id 8subtract 1 from totalend repeatset lockScreen to falseend ifend ifend ifplay harpsichord "gq cq"choose Browse toolend deleteWSCard-----------------------------------------------------------------------on newPhoneNameplay harpsichord "cq"ask "Enter the new name and phone number…" with ¬" Ann E. Macintosh, 1-214-555-1212"if it is " Ann E. Macintosh, 1-214-555-1212" or it is empty thenpop cardexit newPhoneNameelseset cursor to 4set lockScreen to trueput it into phoneNameput last item of phoneName into holderput " "&holder into last item of phoneNameget the number of lines of card field id 1add 1 to itput phoneName into line it of card field id 1put last word of item 1 of line it of card field id 1 into tempdelete last word of item 1 of line it of card field id 1put temp&", " before first word of item 1 of line it of card field id 1if last char of item 2 of line it of card field id 1 is " " thenput empty into last char of item 2 of line it of card field id 1end ifput sort( card field "Phone Directory", "a" ) into card field id 1set the scroll of card field id 1 to 0set lockText of card field id 1 to truehide card button id 4show card button id 3play harpsichord "gq"set lockScreen to falseend ifend newPhoneName-----------------------------------------------------------------------on DAlaunchset cursor to 4getDANames --••thanks Aron Roberts!••play harpsichord "gq"DoList "Select DA","Forget it!",namesOfDAs,one --••thanks J.L.Paul!••if the result > 0 thenput item 2 of the result into daNameelseexit DAlaunchend ifset cursor to 4set lockScreen to truedoMenu "New Button"hide btn "New Button"put daName into btnNameset rect of btn "New Button" to 128,312,211,326set textStyle of btn "New Button" to plainset textSize of btn "New Button" to 9set textFont of btn "New Button" to Genevaset textAlign of btn "New Button" to centerset showName of btn "New Button" to trueset the style of btn "New Button" to transparentset the autoHilite of button "New Button" to trueput "on mouseUp" & return into line 1 of newScriptput "doMenu" &"e&daName"e& return after newScriptput "show menuBar" & return after newScriptput "show bkgnd btn id 40" & return after newScriptput "end mouseUp" & return after newScriptset name of btn "New Button" to btnNameset script of btn btnName to newScriptshow btn btnNamedoMenu "Cut Button"doMenu "Background"doMenu "Paste Button"doMenu "Background"click at 150,315set lockScreen to falseset the loc of msg to 20,204put "Drag the new button to appropriate location and press Command-Tab" into messageshow Messagerepeat 3set the hilite of bkgnd btn btnName to truewait 20 ticksset the hilite of bkgnd btn btnName to falsewait 20 ticksend repeatend DAlaunch-----------------------------------------------------------------------on newQuikButtonask "Enter the name of the new Quik Button…" with ¬" (maximum of 9 characters)"if it is " (maximum of 9 characters)" or it is empty thenexit newQuikButtonelseput it into newNameif the length of newName > 9 thenbeepanswer "Only 9 characters are allowed! Try again…" with "OK"exit newQuikButtonend ifask "Enter the name of the 'Work Station' card…" with ¬" …as it appears in the card's title field!"if it is " …as it appears in the card's title field!" or it is empty thenexit newQuikButtonelseput it into buttonNamefind buttonName in field "card name"if the result is not empty thenbeepanswer "Can't find card"&"e& buttonName "e&" in stack!"exit newQuikButtonelseset cursor to 4push cardset lockScreen to truego to card buttonNameget the id of this cardput it into Saverpop carddoMenu "New Button"set rect of btn "New Button" to 148,312,190,326set textStyle of btn "New Button" to plainset textSize of btn "New Button" to 9set textFont of btn "New Button" to Genevaset textAlign of btn "New Button" to centerset showName of btn "New Button" to trueset the style of btn "New Button" to transparentput "on mouseUp" into line 1 of newScriptput "visual zoom open" into line 2 of newScriptput "go to "& Saver & "" into line 3 of newScriptput "end mouseUp" into line 4 of newScriptset the autoHilite of btn "New Button" to trueset the script of btn "New Button" to newScriptset name of btn "New Button" to newNamedoMenu "Cut Button"doMenu "Background"doMenu "paste Button"doMenu "Background"click at 150,315set the loc of message to 20,204put "Drag the new button to appropriate location and press Command-Tab" into messageshow msgset lockScreen to Falserepeat 3set the hilite of bkgnd btn newName to truewait 20 ticksset the hilite of bkgnd btn newName to falsewait 20 ticksend repeatend ifend ifend ifend newQuikButton------------------------------------------------------------------------- Script for “Add Application” button-- by Dennis C. DeMars, modified by Debbie Iwatate-- Note: This script uses the following XFCNs-- Filename written by Steve Maller-- GetAppIcon written by Dennis C. DeMars--.....................................................................function buttonName fullNameput the length of fullName into lastCharrepeat with i = lastChar down to 1if char i of fullName = ":" then exit repeatend repeatreturn char (i + 1) to lastChar of fullNameend buttonName-----------------------------------------------------------------------on appInstallput fileName("APPL") into appFileif appFile = emptythen exit appInstallset cursor to 4put buttonName(appFile) into appNameput long name of this stack into destFileput char 8 to (number of chars in destFile - 1) of destFile¬into destFileput GetAppIcon(appFile,appName,destFile) into iconNoUpdateResForkif iconNo = "0" then exit appInstallset lockScreen to truedoMenu "New Button"set name of last btn to appNameput the id of btn appName into butIDtempput the long name of this stack into stackNamedelete first word of stackNameset style of btn appName to transparentset showName of btn appName to trueset autoHilite of btn appName to trueset icon of btn appName to iconNoset rect of btn appName to 161,142,244,199put "on mouseUp" & return into buttonScriptput "if the commandKey is down then" & return after buttonScriptput "do ""e&"killButton""e&& return after buttonScriptput "KillResID "&stackName&",""e&"ICON""e&","&iconNo&& return after buttonScriptput "else" & return after buttonScriptput "global longname" & return after buttonScriptput "put " & quote & appFIle & quote & " into longname" & return after buttonScriptput "LaunchAPP" & return after buttonScriptput "end if" & return after buttonScriptput "end mouseUp" & return after buttonScriptset script of btn appName to buttonScriptset lockScreen to falserepeat 3set the hilite of card btn appName to truewait 20 ticksset the hilite of card btn appName to falsewait 20 ticksend repeatend appInstall-----------------------------------------------------------------------on launchAppset cursor to 4global longnameset hilite of target to falseif multifinder() is true thenif isRunning(short name of the target) is true thenbeepanswer "This application is already running!"elseput sublaunch (longname) into launchResultif launchResult <0 then osErr launchResultelse if launchresult >0 thenbeepanswer "Can't launch application, check RAM!"end ifend ifelseopen longnameend ifend launchApp-------------------------------------------------------------------------- Script for “Add Document” button-- by Dennis C. DeMars, modified by Debbie Iwatate-- Note: This script uses the following XFCNs-- Filename written by Steve Maller-- GetDocIcon written by Dennis C. DeMars--.....................................................................on docInstallput fileName("APPL") into appFileif appFile = empty then exit docInstallput fileName() into docFileif docFile = empty then exit docInstallset cursor to 4put buttonName(docFile) into docNameput long name of this stack into destFileput char 8 to (number of chars in destFile - 1) of destFile¬into destFileput GetDocIcon(appFile,docFile,destFile) into iconNoUpdateResForkif iconNo = "0" then exit docInstallset lockScreen to truechoose button tooldoMenu "New Button"set name of last bt
